// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: //-+--Texture 3D
thread 'AIM8'
27@ = 8.0
24@ = 8.0
21@ = 4.0
#MP5LNG.load
038b:

WHILE TRUE
        Actor.StorePos($PLAYER_ACTOR, 10@, 20@, 23@)                                                                         
        if 0AE1: 31@ = random_actor_near_point 10@ 20@ 23@ in_radius 500.0 find_next 1 pass_deads 0 //IF and SET                                                                 
        THEN                                                                              
            if and                                                                        
                056D:   actor 31@ defined                                                 
                803B:   not  31@ == $PLAYER_ACTOR // (int)                                
            THEN
                IF OR
                    051A:   actor $PLAYER_ACTOR damaged_by_actor 31@
                    02E0:   actor 31@ firing_weapon 
                THEN
                    if not Actor.HasWeapon($PLAYER_ACTOR, 29)                                                                                                                                                          
                    then Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 29, 999999)       
                    end        
 
                    IF NOT ACTOR.Dead(31@)
                    THEN 
                        IF 8449:   actor $PLAYER_ACTOR in_a_car
                        THEN 
                            IF  33@ >= 500 
                            THEN 33@ = 0
                            05E2: AS_actor $PLAYER_ACTOR kill_actor 31@
                            END
                        ELSE 0713: actor $PLAYER_ACTOR driveby_actor 31@ car -1 point 0.0 0.0 0.0 radius 150.0 8 1 firing_rate 100 
                        END
                    END
                END
                IF and
                    00E1:   player 0 pressed_key 4
                    1@ == false 
                THEN 1@ = true 
                    if not Actor.HasWeapon($PLAYER_ACTOR, 29)                                                                                                                                                          
                    then Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 29, 999999)       
                    end        
                    IF NOT ACTOR.Dead(31@)
                    THEN 
                        IF 8449:   actor $PLAYER_ACTOR in_a_car
                        THEN 05E2: AS_actor $PLAYER_ACTOR kill_actor 31@
                        ELSE 0713: actor $PLAYER_ACTOR driveby_actor 31@ car -1 point 0.0 0.0 0.0 radius 150.0 8 1 firing_rate 100 
                        END
                    END
                END
                IF 80E1:   player 0 pressed_key 4
                then 1@ = false
                end 
            END 
        END     
        WAIT 0                                                                               
END